home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Serving Financial Service…olutions Suite 1994 Fall
/
Serving Financial Services Solutions Suite 1994 Fall.iso
/
Apps
/
FirstClass
/
Tailor.app
/
tex.data
< prev
next >
Wrap
Text File
|
1994-12-12
|
687b
|
126 lines
%! Adobe packPS Version 2.0 (9)
(* TeX prologue - 30dec93 *\n)
print
/TeXDict
where
{
pop
TeXDict
begin
/df-tail
{
/nn
10
dict
N
nn
begin
/FontType
3
N
/FontMatrix
fntrx
N
/FontBBox
FBB
N
string
/base
X
array
/BitMaps
X
/BuildChar{
CharBuilder}N
/Encoding
IE
N
/FontName
1
index
N
end
dup
{/foo
findfont
setfont}
3
array
copy
cvx
N
dup
load
exch
0
exch
put
/ctr
0
N
[
}
B
/E
{
pop
/maxY
1
def
/minY
0
def
nn
/BitMaps
get
{
/ch-data
X
ch-yoff
dup
maxY
gt
{/maxY
X}{pop}ifelse
ch-yoff
ch-height
sub
dup
minY
lt
{/minY
X}{pop}ifelse
}
forall
/pointSize
maxY
minY
sub
N
nn
/ScaleMatrix
[pointSize
sf
mul
0
0
pointSize
neg
sf
mul
0
0]
put
nn
/FontName
get
nn
definefont
setfont
}
B
end
}
if